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Simple 
Maths, Tables 
and Numbers 


This book is part of the MICRO MATES 
series. It has been written to help you 
use your BBC Micro or Electron 
microcomputer. In it you will find a whole 
series of programs that you can type in 
and try out for yourself. 


MICRO MATES programs are simple, 
straightforward and fun to use. Every 
program is clearly described and explained 
so that you can understand what it does 
and why it works. The MICRO MATES series 
helps and encourages you to start writing 
programs of your own. 


Along with the program descriptions you 
will find lots of ideas: how to change 
your programs, how to make them run more 
efficiently and how to use all the short 
cuts and special functions your computer 
has to offer. 


Every young computer fan will find the 
MICRO MATES series full of ideas and 
challenges. 





This book will show you how you can use 
your BEC Micro or Electron to do sums, 
work out problems and test your maths 
Skills. It will set you lots of knotty 
problems, and entertaining puzzles too. 


Your camputer is a very complicated 
machine. It can produce some quite amazing 
results. There are all sorts of computer 
Games and puzzles available that tackle 
maths problems it would take you years to 
do on paper. To write these programs takes 
a great deal of skill and knowledge. 


As a beqinner you can easily get confused 
by all the instructions and information 
which you find im books and magazines. 
This book is here to help you make a 
start. It will explain as simply as 
passible how your computer can be used 
with numbers. 


Although you could use this book if you’ve 
never used a computer, you will probably 
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find it uses words and terms that you 
don’t understand. If so, you might like 
first of all to read the "Heginners’ Micro 
Guide" to the Electron or HBC Micro, so 
that you have some idea how your computer 
works. It will make many ideas and words 
im this book easier to follow. 


The programs in this book have been 
arranged so that you will learn, step by 
step, the words and commands of BASIC that 
you use to write programs for puzzles and 
calculations. 


Don’t worry if you don’t understand 
exactly what each word or command means 
straight away. All you need to know for 
now is what it does! 


Computer programs can be stored on 
cassette tape. With the MICRO MATES 
series, you can build up a collection of 
your own programs on tape. 


The first few programs are very simple 
introductions to some ideas that you will 
explore later. You probably won’t want to 
‘save’ these, but you may well want to 
make a copy of some of the longer and more 
useful programs. 


At the back of this book you will find a 
shart section which tells you how to 
record and use your own programs. 


The BRC Micro and the Electron are very 
similar, so far most of the programs in 
this book it doesn’t matter which you 
have. But beware! The Electron does not 
have a MODE 7. Where a MODE 7 program will 
not work on the Electron, this is made 
clears otherwise, if you are using an 
Electron, just type in MODE 6 instead. 
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Programming for 
Beginners 


You will need to learn a number of BASIC 
words used for programming. It helps to 
keep a notepad and pencil handy for 
making notes. Before you begin, read 
through this chapter carefully. It will 
help you to avoid some common problems. 








LINE NUMBERS 


A computer program is essentially a list 
of numbered instructions. Each set of 
instructions begins with a line number. 
These usually start at ten and go up in 
tens. This is so that extra lines can be 
added later on. What matters is that the 
instructions in your program are arranged 
in the correct order. 


THE RETURN KEY 


When you type in a program line that is 
too long for one line on the screen you 
do not have to worry, it is automatically 
carried on to the next line. Hut when you 
have completed that set of instructions 
and are ready to type in the next line 
number, you MUST press the RETURN key. 


THE DELETE KEY 


If you make a mistake when typing 
something in, you can remove it by 
pressing the DELETE key at the bottom 
right hand corner of the keyboard. 
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RUNNING AND LISTING PROGRAMS 


Once you have typed in a program, you 
have to tell your computer to RUN the 
program. To do this, type in RUN, and 
then press RETURN. 


If all goes well, your program will work 
first time. If it doesn‘t, LIST your 
program and take another look at it. 


If the program is a long one, start by 
pressing the CTRL and N keys at the same 
time. This stops the program running off 
the top of the screen when it lists. Then 
type in LIST and press RETURN. Now you 
can look at your program. To see the next 
page of a long program, just press the 
SHIFT key - the next page of the program 
will move up the screen. 
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SPACING AND PUNCTUATION BUGS 


Your computer works by obeying 
instructions written in BASIC, and BASIC 
has some very strict rules. If you don‘t 
follow these, your programs will "crash" —- 
that is, they won’t work properly. When 
you break the rules of BASIC like this, 
it is called a SYNTAX ERROR. 


Syntax errors can be caused by all sorts 
of small mistakes. When they happen, your 
computer will usually tell you at what 
line in the program it has not understood 
your instructions. 


When you type in a computer program, you 
mist make sure that you copy it in 
correctly. Even little things, such as 
not leaving a space between words or 
leaving too much space between certain 
symbols, can cause your programs to 
crash. Watch out for those punctuation 
marks, they are more important than they 
seem. The semi-colon symbol (3) has quite 
a different meaning to the colon symbol 
(2), and they should not be confused with 
each other. 


HUNT THE BUG! 


Your computer may have told you on which 
line the mistake has been made. LIST the 
program, look at the line and compare it 
with the same line in the printed listing. 
Sometimes the mistake (or ‘bug’ as they are 
sometimes called) is obvious. When you have 
found it, just type in the correct version 
of the line. Fress RETURN and list the 
Program again, and the bug will be gone. 


Some bugs are not easy to find! 
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ZEROS AND O’S 


A common mistake made by beginners is to 
confuse the © (zero) with the O (the 
letter Q). Make sure particularly that 
you use the zero when typing in line 
numbers. Your computer will not accept an 
"go" for a wo" . 


CAPITAL LETTERS 


Another easy mistake is to use small 
letters when CAPITALS must be used. All 
the BASIC keywords like FRINT, LIST, RUN 
etc must always be typed in capitals. If 
you're bothered by bugs, then check those 
capitals! 


NEW 


To get rid of an old program before typing 
in another one, just type in NEW and press 
RETURN. 


ABBREVIATIONS 


Yau can shorten some instructions when you 
type in your programs, eg:- 


FRINT can be shortened to F. 
INFUT can be shortened to I. 
LIST can be shortened to L. 


When you list your programs these will be 
printed out in full. 


A full list of the abbreviations that you 
can use is to be found in your User Guide. 
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WATCH THOSE LIGHTS! 


At the bottom left hand corner of the 
keyboard are a group of three lights 
labelled “cassette motor", "caps lock" 
and "shift lock". 


When the key marked CAPS LOCK is pressed, 
the caps lock light will either light up 
or switch off. With the caps lock light 
on, all letters typed in will be 
capitals. To obtain small, lower case 
letters, the caps lock light must be 
turned off by pressing the CAPS LOCK key 
again. 


The same applies to the "shift lock" 
light and SHIFT LOCK key. With the shift 
lock light on, as well as all letters 
being capitals, the upper characters on 
the number and symbol keys are obtained. 
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Normally neither light need be on. 
Capital letters and the upper characters 
on the keys can be obtained by pressing 
the SHIFT key and the key chosen. 


If you find yourself typing in some 
strange letters or symbols, check your 
lights! 


THE BREAK KEY 


Avoid pressing the BREAK key if you 
possibly can. If you do press it, you 
Will see that the computer behaves as if 
it had just been switched on, and the 
standard message appears on the screen.To 
get back to your program, type in:- 


OLD 
and press RETURN. Then type in:- 
LIST 


Your program listing 1s displayed, and 
you have not lost your program. 


CLEARING THE SCREEN 


If you want to clear the screen while you 
are writing a program, type in:- 


CLS 


and press RETURN. This clears the screen 
and you can now list or run your program 
as normal. Fressing CTRL and L at the 
same time also clears the screen. 
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EDITING PROGRAMS 


If you have made a mistake or you want to 
change part of a line, you can EDIT that 
line. This saves rewriting the whole line. 


To do this, first move the screen cursor, 
the flashing line following the =, using 
the arrow keys at the top right of the 
keyboard. Move it until it reaches the 
beginning of the line you want to change. 


Now press the COFY key. You will see that 
line being copied on to the screen. Keep 
your finger on the COFY key until you 
reach the part of the line that you want 
to change. You may now make whatever 
changes you like in the usual way. If you 
would like the rest of the line to stay as 
it is, then press the COFY key again until 
the rest of the line is copied out. Now 
press RETURN. The new version of the line 
goes into your program. 


DELETING LINES 


If you want to get rid of one line 
altogether, just type in the number of 
that line and then press the RETURN key. 
This removes that line from the memory. 


To delete a group of lines, use the 
command DELETE. Type in the word DELETE 
followed by the first line number of the 
group of lines you wish to remove. Then 
type in a comma followed by the last line 
number of the group of lines to be 
removed. Finally press RETURN. A typical 
DELETE command might look like this:- 


DELETE 100,500 


13 


MICRO MATHS 


Your computer is a very powerful tool. 

As you will discover it can work out the 
answer to sums and calculations far faster 
than you! 


Microcomputers have what is known as a 
memory. ALL the numbers that you use in a 
program or calculation are stored in this 
memory. But this memory is limited. This 
means that when you use very large numbers 
or decimal fractions your computer may not 
always treat them in the way you would 
expect. 


For example, if you ask your computer to 
print the number .8888888888888 then what 
it will print is the number .888888889. If 
you were to ask it to print the number 


19000000000 then what it would print would 
be this:- 
1E10 


which means ten raised to the power of 
ten. 


These strange things happen because your 
computer just doesn’t have enough space in 
its memory to store such big numbers. This 
probably won’t affect the programs you use 
in this book, but be warned: computers are 
not always 100% accurate. 
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PROGRAM 1: MULTIPLICATION 


Frogram 1 is a simple calculation program. 
It asks you to INFUT, or put in two 
numbers. It then multiplies these. 


Lines 10 to 30 print the program’s title. 
The use of the word FRINT on its own at 
Line 30 prints a blank line underneath. 


Lines 40 and 60 print the questions asked 
by the program. Always try to make your 
questions clear and polite ! 


Lines SO and 70 use the BASIC word INFUT. 
This allows you to store information. In 
this program, your two numbers are stored 
as the variables A and B. 


Finally Line 80 prints the answer. Notice 
that the multiplication sign in BASIC is 
an asterisk (*). 
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Type ins- 


§ REM USING » 
iO PRINT "MULTIPLICATION" 

SCY RETIN TM meee nn ce re ee neice ce ce ce ne 
SO PRINT 

4QO PRINT"WHAT IS YGUR FIRST NUMBER 7?" 
SO UINFUT A 
60 PRINT'WHAT IS YOUR SECOND NUMBER 7?" 
70 INFUT B 

BO PRINT Ag" *"s Bs "=": QeB 


PROGRAM 2: ADDITION 


Frogram 2 adds up any three numbers which 
you INFUT at Lines 70, 90 and 119. You can 
have as many variables as you like ina 
program, provided that you give each one a 
different name. 


The instruction CLS at Line 10 clears the 
screen before the program runs. 


Type in:- 


5 REM * ADDITION * 

10 CLS 

20 REM * & NUMBERS * 

30 PRINT "ADDITION" 

40 PRINT" _ " 

SO PRINT 

60 FRINT'CAN I HAVE YOUR FIRST NUMBER 
FLEASE ?" 

70 INFUT A 

BO PRINT"CAN I HAVE YOUR SECOND NUMBER 
FLEASE ?" 

90 INPUT B 

i100 FRINT"CAN I HAVE YOUR THIRD NUMBER 
FLEASE ?" 

110 INFUT C 

120 PRINT As"#+"2B3"4"sCs "=": A+B+C 
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ADDITION 


CAN I HAVE YOUR FIRST NUMBER PLEASE 713 

CAN I HAVE YOUR SECOND NUMBER PLEASE?738 

CAN I HAVE YOUR THIRD NUMBER PLEASE 762 
13+38+62=113 


THE REM STATEMENT 


At Line 3 in these two programs you will 
see what is known as a REM statement. REM 


stands for REMARE. REM statements are put 
into programs to tell you about the 
program. This can be very helpful to 
anyone looking at the program. 





PROGRAM 3: DIVISION 


~~ 


Frogram 3 shows the use of the division 
sign and of longer variable names. 


Lines 70 and 90 use the variables numberl 
and number2. Although single letter 
variables could be used here, the longer 
names are clearer and make the listing 
easier to understand. Longer variable 
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names should be in lower case i.e not 
capital letters. Spaces are not permitted, 
so that the variable name ‘number 1° would 
mot be allowed. 


Your computer does not use the traditional 


division sign. Instead it uses the / (or 
backslash) sign. 


Type ins- 


10 REM * DIVISION USING / * 


=O CLS 

20 PRINT" DIVISION" 
40 PRINT" -------— " 
20 FRINT 


60 FRINT "CAN I HAVE YOUR FIRST NUMBER 
FLEASE 7" 

7O INFUT number l 

BO PRINT "CAN I HAVE YOUR SECOND NUMBER 
FLEASE ?" 

90 INFUT number2 

100 PRINT numberls"divided by "; number? 
s"="s number1l/number2 


PROGRAM 4: MOD & DIV 


When you run Program 2 you will find that 
it treats all fractions as decimals. This 
can be awkward at times. Frogram 4 shows 
the use of the BASIC words MOD and DIV. 


Lines 80 and 90 are the important lines 
here. Line 80 divides numi by num2 and 
gives the whole number part of the 
calculation. At Line 90, MOD gives you the 
remainder. 


RUN the program a few times. 
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DIVISION WITH REMAINDERS 


YOUR FIRST NUMBER PLEASE 47 
YOUR SECOND NUMBER PLEASE 8 


4778=5 with 7 remainder 





Type inin- 
10 REM * MOD AND DIV * 
20) CLS 
20 PRINT"DIVISION WITH REMAINDERS" 
FE RN ccc csiede acre tinea as seein oneaanannide mwointoae 
20 FRINT 
60 INFUT" YOUR FIRST NUMBER FLEASE ",numi 
79 INFUT" YOUR SECOND NUMBER FLEASE ",nume 
80 FRINTs nmumis" divided by "s 
numes"="snuml DIV numes 
90 PRINT" with “snuml MOD num23" remainder" 








PROGRAM 5S: A COUNT 


Frogram 3 makes use of a ‘count’. This 
enables you to keep a running total. 


Line 60 sets a variable, ‘total’, to an 
initial value of O. Any number INFUT while 
the program runs is added to ‘total’. 


Line 80 INFUTs the number you type in and 
Line 90 adds this number to ‘total’. 

Line 100 checks to see if 9% has been 
INFUT. If it has then the pragram moves to 
Line 1190 and prints the final value of 
‘total’. If 9 1s not INFUT then the 
program returns to Line 70. This enables 
you to add a further number. 


You can add up as many numbers as you like 
using this program. When you are ready to 
find out the total, just INFUT ©. 


Type in:- 


10 REM *LOOF & COUNT 
29 CLS 


20 


20 FRINT' CALCULATOR" 

40 FRINT" az 

23O PRINT 

60 LET total=0 

70 FPRINT "Number please" 

B80 INFUT number 

90 total=totaltnumber 

100 IF number=0 THEN GOTO 110 ELSE 70 
1190 FRINT "TOTAL ="stotal 


CALCULATOR 


please 
Number please 
Number please 
Number 
Number 


please 
please 
please 8 
please © 


TOTAL=359 





PROGRAM 6: REPEAT..UNTIL LOOP 


This program does the same calculation as 
Frogram 3 but uses a different method. 


Like Frogram 3, it allows certain sections 
of your program to be repeated. This is 
known as a LOOF. Because it uses the words 
REFEAT and UNTIL, the loop used here is 
known as a REFEAT..UNTIL loop. 
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Type ins- 


10 REM * REFEAT..UNTIL * 


20 CLS 

29 PRINT "CALCULATOR" 
40 FRINT " . 
vO PRINT 

60 score=O0 

70 REFEAT 


BO INFUT "Number please ",num 
90 score=score+num 

100 UNTIL num=0 

110 PRINT score 


LINE NUMBERING 


To save time when typing programs in, 
you can use the command AUTO. This 
automatically prints line numbers. 
Before writing your next program, type 
vg lie 


AUTO 


and press RETURN. The line number 10 
appears automatically, then (after you 
have pressed RETURN) 20, and so on. When 
you have finished typing in your 
program, press ESCAFE. This stops the 
automatic line numbering. 





PROGRAM 7: ADDITION QUIZ 


Frogram 7 is a longer program that uses 
various features of BASIC. It sets six 
addition questions for you to answer. 


Lines 20 to 70 are a friendly way to start 
a program ! 
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Line 90 sets up a count to keep score. 
Correct answers gain a mark. Incorrect 
answers add a mark to the computer's 
score. 


Lines 80, 210, 3390 and 370 call up a 
FROCEDURE. This is a part of a program 
which can be used several times. The 
procedure is defined at Lines 390 to 410. 
It is used to slow down the running of the 
program. 


Line 100 sets up a FOR..NEXT loop to ask 
Six questions. If you want to be asked 
more than six, increase this number. 


Line 140 uses the BASIC word RND to pick 
numbers at random for the quiz. If you 
want larger numbers, increase the numbers 
in brackets. 


Lines 190 and 200 check your answer. If 
correct, the program goes to the 
SUBROUTINE at Line 310. If incorrect, the 
program goes to the subroutine at Line 
290. A subroutine is also a part of a 
program that may be used several times 
over. 


Finally Lines 240 to 300 print the final 
score and end the program. 


MATHS TEST 


WHAT IS THE ANSWER TO THIS PROBLEM 7 


1 ae at tN 
729 


Correct. One mark scored. 





Type ins- 


10 REM * Addition Quiz * 
=O MODE 7 
20 FPRINT "What 15 your name 
40 INFUT names 
20 FROCpause 
60 CLS 
79 FRINT "Hello "sname? 
BO FROCpause 
90 score=O:beeb=0 
1900 FOR question=1 TQ 6 
110 CLS 
120 FRINT "MATHS TEST" 
120 PRINT "---------- " 
140 X=RND(10)4+5s Y=RND(10)45 
150 PRINT ’"WHAT IS THE ANSWER TO THIS 
FROBLEM Y" 
140 PRINT 
170 FRINT Xs"+"sYs" ?" 
180 INFUT ans 
190 IF ans= X+Y THEN GOSUBE 310 
200 IF NOT Cans =X+Y) THEN GOSUB 350 
=<=10 FROCpause 
220 NEXT question 
220 CLS 
240 FRINT "FINAL SCORE " 
240 FRINT " " 
260 PRINT 
2/0 PRINT name¥;" "“sscore 
=<80 FRINT "Computer ";beeb 
290 PRINT 
200 END 
o210 PRINT ‘" Correct. One mark scored." 
220 score=scoretl 
o3o0 PROCpause 
240 RETURN 
2990 FRINT ‘'" Incorrect answer." 
260 beeb=beebtl 
2/70 FROCpause 
380 RETURN 
390 DEF FROCpause 
400 FOR Z=1 TO 1500:NEXT Z 
410 ENDFROC 


re 
ve tt 
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A STAR LOOKS LIKE THIS :- 


HOW MANY STARS CAN YOU SEE OW THIS ROW 7? 


No, there are 180 stars, look.... 


1234535 678 93 18 





PROGRAM 8: COUNTING STARS 


Frogram 8 prints a row of stars on the 
screen and asks you to count them. 


This program uses MODE 1. There are eight 
display modes on the BRC Micro and seven 
on the Electron, each offering a different 
range of colours and special features. 


Line 40 sets up a loop to give you five 
turns. For more turns simply increase this 
number. Line 60 uses the COLOUR 
instruction to print a yellow ‘star’. 
COLOUR 2 stands for yellow in MODE 1. The 
text is displayed in white; the code for 
white is COLOUR 3. 


Line 90 selects at random the number of 
stars to be displayed. To increase the 
range of numbers picked, you increase the 
number in brackets. 
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The subroutine at Line 320 then prints out 
the row of stars using the instruction 
TAR. This spaces out the display along the 
line. 


Lines 150 checks your answer. If correct, 
the program moves to the subroutine at 
Line 200. If incorrect, the program moves 
to the subroutine at Line 230. This prints 
out the same number of stars, and numbers 
each one using the TAB instruction. 


Finally Lines 180 and 190 print out the 
score and end the program. 


Type in:- 


10 REM *STARS+* 
= MODE 1 
20 score=0 
40 FOR go=1 TO 3 
20 PRINT °"A STAR LOOKS LIKE THIS :-" 
60 PRINT:sCOLOUR @:FRINT "*":COLOUR 3 
7Q PRINT’ “HOW MANY STARS CAN YOU SEE 
ON THIS ROW 7?" 
80 COLOUR 2 
90 LET stars=RND(7) +3 
100 FRINT:FRINT 
110 GOSUB 320 
120 COLOUR S:FRINT: PRINT 
130 PRINTS PRINT: PRINT 
140 INFUT answer 
150 IF answer=stars THEN GOSUB 200 
ELSE GOSUB 230 
160 PRINT:FPRINT: FOR Z = 1 TO 800: 
NEXT Zs: CLS 
170 NEXT go 
180 CLS: PRINT’ "You scored "sscore;" 
out of 5 " 
190 FPRINT:END 
290 PRINT’’ "Correct, there are "s 
stars;" stars" 
£10 score=scoretl 
220 RETURN 
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230 FRINT’’"No, there are "sstars;" 
stars, look...." 

240 PRINT: FRINT 

2909 GOSUB 320 

260 PRINT: FRINT: 

2/7] FOR N=1 TO stars 

280 FRINT TABCN#2) 5 N35 

290 FOR Z=1 TO 400:NEXT Z 

300 NEXT N 

310 RETURN 

329 FOR N=1 TO stars 


330 FOR Z=1 TO 400:NEXT Z 
340 PRINT TAB(N#2) 3 "#"s 
=50 NEXT N 

360 RETURN 


PROGRAM 9: HOW MANY HOUSES ”? 


Frogram 9 1S a more adventurous version of 
the last program. It uses MODE 2 graphics. 
It prints a number of houses on the 
screen, and you have to count them 
correctly. 


This program works with ‘user defined 
graphics’. Lines 30 and 40 define a house 
shape, stored as CHR#(240) and CHR#(241). 
This shape is then put in the procedure 
‘house’, defined at Lines 300 to 220, 


A loop is set up at Line 60 to set the 
number of turns in the quiz. A sound 
effect is added at Lines 100 to 120. 


Line 130 calls up the procedure 
‘boundary’, defined at Lines 220 to 370. 
This draws a frame around the area where 
the houses will be printed. 


Lines 140 to 190 use a loop to print out 
the houses at various places on the 
screen. 
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Line 170 picks at random the X and Y 
co-ordinates far the position of each 
house. This point is then established 
using the instruction MOVE at Line 180. 
The instruction VDU S which follows, 
enables shapes and letters to he plotted 
on the graphics display grid. 


Finally, at Lines 200 to 290, the answers 
are JNFUT and checked, your score is added 
up and the final result printed out. 


2 ee hk ee ee 


? & 


Seorrewy, { hh = e~ e& hae 
be . P< 4s sr ee ee. 





Type ins- 


10 REM # VILLAGE * 
=9 MODE 2 
30 VDU 23,240,4,31,65,127,39,58,62,62 
40 VDU 
254,241 ,16,248, 2592, 254,228,100,124,124 
29 score=O:question=sS 
60 FOR turn=1 TO S 
79 CLS 
8QO PRINT "How many houses 7" 
90 village=RND (14) 
100 FOR n=150 TO O STEF-S 
110 SOUND 1,-190,n,1 
120 NEXT n 
130 FPROCboundary 
140 FOR houses =1 TO village 
150 col=houses: IF col?s7 THEN 
col=houses~7 
160 GCOLO,col 
170 X=RND (1000) +100: Y=RND (500) +250 
180 MOVE X,Y: VDUS:FROChouse 
190 NEXT houses 
290 MOVE 20,180:VDU 3:GCOLO,7: INFUT 
answer 
21Q IF answer=village THEN FRINT’ 
"Correct": score=scoreti: GOTO 240 
220 IF NOT Canswer=village) THEN FRINT’ 
"Sorry , there are " 
230 FRINT’svillage;" houses. " 
240 FOR Z2=1 TO 4000: NEXT 
220 NEXT turn 
260 CLS: FRINT "QUIZ OVER" 
2/0 FRINT’ "You scored "sscore 
280 PRINT’ "out of "squestian 
2970 FRINT s END 
290 DEF FROChouse 
210 PRINT: CHR# (240) s CHRE (241) 
220 ENDPROC 
240 DEF FROCboundary 
240 MOVE 10,200: DRAW 1279, 200 
20 DRAW 1279,900: DRAW 10,900 
260 DRAW 10,200 
279 ENDFROC 
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PROGRAM 10: DOUBLE HEIGHT LETTERS 


Frogram 10 is another addition quiz. If 
your computer is a BBC Micro, it will give 
you an easy-to-read screen display in 
double height letters. If you have an 
Electron, you can still do the quiz. Type 
it in in MODE 6, and leave out the 
instruction CHR# and Lines 90, 170, 230 
and 200, 


For BEC Micro users, the most important 
lines are Lines 80 and 90, 160 and 170, 
220 and 250, 290 and 300. Here the 
instruction PRINT CHR#(141) prints the 
text that follows in double height 
letters. This instruction has to be 
repeated oh the following line of the 
program, otherwise only the top half of 
your text gets printed. 


MODE 7 is known as the TELETEXT mode 
because it is the mode used to print 
Teletext television displays. MODE 7 
differs from the other modes and requires 
different commands and instructions. 
Section 28 of the BBC Micro’s USER GUIDE 
deals with Teletext mode in more detail. 


What is 6 +97? 


4 i 


17 is right, well done. 





Type ins- 


10 REM * Double Height Display * 

209 MODE 7 

30 score=0 

40 FOR turn=1 TO S 

3O numl=RND (S) +5 

60 num2[=RND (5) +3 

7QO FRINT :FRINT 

80 FPRINT CHR#(141)s "What is "“snumls" + 
"snumes" 2" 

90 PRINT CHR#(141)3 "What is "snumis" + 
oo H numa s os oO" 

100 PRINT :sFRINT 

110 INFUT answer 

120 IF answer=numltnum2 THEN PROCcorrect 
ELSE FROCwrang 

130 NEXT turn 

140 CLS 

150 FRINT : PRINT 


160 PRINT CHR#(141): "SCORE = "sscore:" 
OUT OF 5" 

170 PRINT CHR#(141):"SCORE = "sscore:" 
OUT OF 5" 

i80 END 


190 DEF FROCcorrect 

200 score=scoretl 

210 PRINT :FRINT 

22Q PRINT CHR#¢(141)3 answer 3; " is 
right, well done." 

230 PRINT CHR#(141)3 answer 3; " is 
right, well done." 

240 FOR N=1 TO 3000: NEXT 

2299 CLS 

260 ENDFROC 

270 DEF PROCwrong 

289 PRINT : PRINT 

290 PRINT CHR#(141)3 "No, you are wrong. 
The answer is "snumlit+nume2 

500 PRINT CHR#(141)3"No, you are 
wrong. The answer is "“snumlitnume2 

310 FOR N=1 TO 3000: NEXT 

529 CLS 

330 ENDFROC 
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PROGRAM 11: A DIFFERENT ROUTINE 


Instead of the procedure ‘wrong’ that was 
used in Frogram 10, this program has a 
procedure that gives you more help. It 
tells you whether the wrong answer was toa 
big or too small. Add it to Frogram 10. 
Electron users should leave out Lines 320 
and 260. 


To remove the procedure ‘wrong’ in Frogram 
19, type in the command:- 


DELETE 270,220 


and press RETURN. You can now enter the 
new procedure described in Froagram Il. 


This new procedure checks your answer at 
Lines 290 and 300.I1If your answer is larger 
than the correct answer then the program 
moves to Line 310. If smaller, the program 
moves to Line 350. 


If a wrong answer has been qiven, you can 

have a second go. At Lines 320 and 270 the 
program returns to Line 7O (of Frogram 10) 
and the question 1s set again. 


Type ini- 


2/0] DEF FROCwrong 
=80 FRINT 2: FRINT 
=?70 I[F answersnumitnum2S THEN 316 
300 IF answer numit+num2 THEN 350 

210 PRINT CHR#¢141)3 "No, "“sanswer:" is 
too big, try again." 

o220 PRINT CHR#(L41)3 "No, "“sanswer;" is 
too big, try again." 

S20 FOR N=1 TO 2000: NEXT 

230 CLS:GOTO 70 

2wQ PRINT CHR#(141)3"No, "sanswer;" is 
tog small, try again." 
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260 PRINT CHR#(141)3 "No, "“sanswers;" is 
too small, try again.” 

265 FOR N=1 TO 32000: NEXT 

370 (LS:GOTO 70 

380 FOR N=1 TO S000: NEXT 

3290 ENDFROC 
PROGRAM 12: YES OR NO ? 
Frogram 12 1s another procedure. You can 
add it to the end of most programs. The 
line numbering begins at 400 so that it 


can be added to the last program. 


LIS er s 


Electron 
should leave out Lines 440 and 480. 


When you have typed this into your program 


you will have to add an extra line. 


Just 


before the final END statement, put ina 
line like this:- 


line no. 


PROCagain 


If you want another go at running the 


program, 


just type in Y (in capitals) when 


the program asks you if you wish to have 
another go. 


Type ins- 
400 FROCagain 
410 END 
420 DEF PROCagain 


oo) 


FRINT CHR#¢141)3 "Do you want another 


go, Yoru #" 
440 PRINT CHR#¢141)3 "Do you want another 
go, Yorun 7?" 
4350 INFUT ans? 
460 IF NOT (Cans#="Y") THEN 470 ELSE 10 
4709 PRINT CHR#(141)3 "Thankyou for 


playing the quiz." 
480 PRINT CHR#E (141); 
playing the quiz." 
490 ENDFROC 


"Thankyou for 
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RENUMBERING YOUR LINES 


If you add lines of your own to a 
program, the line numbering system can 
get untidy. Try typing in the 
instructions: - 


RENUMBER 10,10 


This renumbers the lines in your 
program, starting at 10 and leaving a 
gap of 10 between each line number. 





PROGRAM 13: PERCENTAGE CALCULATOR 


Frogram 13 works out the percentage of any 
given number. It uses MODE 4. Line 3290 
alters the colour of your display. 


Lines 60 to 120 ask the questions 
necessary for the calculation. 


Line 130 works out the required 
percentage, INFUT at Line 120, of your 
number, INFUT at Line 90. 


Line 140 prints out the answer and Lines 
150 to 170 allow you, if you wish, to have 
another qo. 


Type ins- 


10 REM * FERCENTAGES * 
~O MODE 4 
29 COLOUR 129:COLOUR ©: CLS 
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40 FRINT’ "PERCENTAGE CALCULATOR " 

al 2, ) eee ene te ee ee ee a 

60 PRINT’ "This program works out 
percentages. " 

79 FRINT "Type in your number " 

BO FRINT 

90 INFUT number 

1090 FRINT 

110 FRINT "What percentage do you wish 
ta know 7" 

120 INFUT percentage 

120 LET ans=number* (percentage/190) 

140 PRINT percentages "A4"s" of "“snumbers; " 
is "sans 

1350 FRINT’ “Another go, Y or N FF" 

1690 INFUT qo#t 

1790 IF go#="Y" THEN 20 ELSE FRINT’ "BYE 
BYE" 


PERCENTAGE CALCULATOR 


his program works out percentages. 


Type in your number 
58e 
at Pe gent age do you wish to know ? 


45% of 5860 is 261 
finother go, ¥ or WN ? 





PROGRAM 14: CURRENCY CONVERTER 


Frogram 14 works out how many dollars you 
would get for any number of pounds 
sterling. 


Lines 30 and 40 change the colours used in 
the display. Lines 60 and 79 print a title 
for the program. 


Lines 80 and 90 ask you how many pounds 
sterling you wish to change. The current 
exchange rate is given at Line 100. This 
can be altered to suit the rate. Line 150 
prints out the results, while Lines 110 to 
120 add a sound effect. 


This is the kind of program that could be 
modified to suit any number of currencies. 


Type ins- 


iO REM * CONVERSION FROG + 
20 MODE 4 

sO COLOUR 128 

40 YDU 19,128,2,0,0,0 

50 COLOUR 1 

60 VDU 19,1,0,9,0,4 


79 CLS 
BO FRINT’ “ CURRENCY CONVERSION" 
FO FRI MT "EHR HEE EE" 


100 FRINT’" How many pounds sterling da 
you want to change please 7" 

110 FPRINT’" "ss: INFUT pounds 

120 LET dollar=pounds*1.275 

130 FOR n=100 TO 250 STEFIO 

140 SOUND! ,-15,n,1 

150 NEXThn 

160 FORz=1 TO Soa: NEXT 

170 PRINT’ " € "spounds;" sterling buys 
"sdollars" dollars" 
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PROGRAM 15: METRIC CONVERSION 


Frogram 15 converts miles to kilometres. 
Lines 20 to 70 set up the screen display. 
Lines 80 and 90 ask for the relevant 
information. 


Line 190 prints the answer, having 
multiplied the number of miles by 1.6 to 
calcuiate the number of kilometres. 


Line 110 is used here to print a blank 
line before the cursor appears. 


37 


Type in:- 


10 
ao 
=O) 
40 
en] ©) 
40 
65 
7O 


REM * Miles to EM * 
MODE 4 

COLOUR 128 

VDU 19,128,1,0,0,0 


COLOUR 1 

VDU 19,1,9,9,9,0 

CLS 

PRINT ° " MILES TO KILOMETRES 


CONVERSION CHART" 


B80 
90 
100 
110 
120 


*#1.635" 


1:30 


FRINT 
FRINT’’" How many miles 7" 
FPRINT’" "ss INFUT miles 


PRINT 

PRINT" "“smiless" miles is ": miles 
kilometres. " 

PRINT 
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PROGRAM 16: SHOPPING LIST 


Frogram 16 allows you to enter a list of 
prices and adds these up. 


Line 80 asks you to INFUT the cost of each 
item. Line 100 asks you to INFUT the 
number of items that you are buying. 


Line 120 works out and prints the sum cost 
of those items. Line 130 adds this to the 
‘total’ set at Line 30. 


Line 160 checks whether you have anything 
more to add to the list. 


Lines 1790 to 200 check the cost and divide 


this up, if necessary, into pounds and 
pence. The BASIC word INT used at Line 180 
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rounds down fractional numbers.It is used 
here to work out the number of pounds 


spent. 


Then Lines 210 to 


279 are used to print 


the final total. 


Type in:- 


1o 

2Q 

m=O) 

40 

SC) 

AQ 

of 
7Q 

80 

PC) 
pence 
Lao 
110 
120 


"scost:" pence = 
total= 
PRINT ’ 


L120 
140 
130 
140 
170 
180 
190 
LOO 


210 


REM * 


MODE 7 


SHOFF ING LIST * 


total =0 


FRINT ° 


FRINT 


FRINT ’ 
prices," 
FRINT ’ 


INFUT 
PRINT 


oe 


INFUT 


"SHOFFING LIST" 


"Thies program adds up a list 


"Cost of 
most 
"Number of 


aL 


item in pence 
items at "scost;" 


items 


SUM=CoOSst*i tems 


PRINT 


INFUT 


IF more##="¥Y"' 
IF total +100 


"Cost of “sitemss" items at 


"ssums" pence" 


total +sum 


"Any more, Y or N ?" 
nore+ 

THEN 70 ELSE 170 
THEN 180 ELSE 230 


pounds=INT (total /100) 
remainder=total~ (pounds*100) 


IF 
PRINT 


remainder 
220 END 
230 PRINT 

E"spounds:; ".O"sremainder 
240 END 
250 FPRINT 


pence" 


remainder 


“£10 THEN 230 ELSE 210 
"TOTAL COST =E "spounds;". "5 


"TOTAL COST = 
"TOTAL COST = 


"stotal;" 
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PROGRAM 17: PRIORITIES 


If someone asks you what is two times two 
plus four, 1S your answer eight or twelve”? 
It could be either, depending on whether 
you do the addition or the multiplication 
first. 


Your computer has a simple rule for 
calculations involving several sums: -— 


Multiplication and division come first. 
Addition and subtraction come next. 


If you want your computer to work out 
addition and subtraction first, you need 
to enclose these sums in brackets. 


Frogram 17 shows how this works. Line 20 
produces the answer 8. It works out 2 
times 2 first and then adds 2. However 
Line 30 produces the answer 12 because the 
sum in brackets, 2 plus 2 18 worked out 
first. This is then multiplied by 3 to 
Qive the answer 12. 


Lines 5O and 60 show a Similar example. 


Type ins- 


10 REM * Friorities #* 
20 PRINT 2+2%3 

30 PRINT (2+2) *3 

30 PRINT 8-2%2 

60 FRINT (8-2) *2 
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PROGRAM 18: THE AREA OF A CIRCLE 


BRC Basic contains many words connected 
with mathematical formulae. Program 18 
demonstrates the use of "PI". 


FI is used to calculate the area of a 
circle. 


Line SQ asks you to input the radius of a 
circle, measured in centimetres. 


Line 60 then uses the formula "FP I#R 
squared" to calculate the area of the 
circle. The squared sign is the ™ symbol, 
just below the BREAK key. 
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Type ins- 


10 REM * CIRCLE AREA * 

=O MODE 7 

209 PRINT’ "THIS FROGRAM CALCULATES THE 
AREA OF A CIRCLE" 

40 FRINT’ "WHAT IS THE RADIUS OF YOUR 
CIRCLE IN CENTIMETRES ?" 

YO INFUT ‘radius 

60 area=Pl*#radius”2 

79 FRINT’ “THE AREA OF YOUR CIRCLE IS 


B80 FRINT’ areas " SQ.CMS" 
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LISTING YOUR PROGRAMS 


Reading program listings in some modes 
can be quite hard work. MODE 7 on the 
BBC Micro, and MODE 6 om the Electron 
are the easiest modes to read. You can 
get all your programs listed in these 
mades by using the red USER DEFINED EFEYS 
at the top of your keyboard. Type in ane 
of these lines: - 


*KEY © MODE7|M LISTIM 
SREY O (MODEG) M lah) 


and press RETURN. Now press red key f0. 
You only have to press this key now 
whenever you want a MODE 6 or 7 listing. 





PROGRAM 19: CORNER SHOP 


Frogram 19 puts you in charge of a corner 
shop. A customer comes in and makes 

several purchases. You have to add up the 
bill and work out how much change to give. 


Line 50 is a DIM or ‘dimension’ statement. 
This tells you the number of items in the 
shop (in this program, 15). The number of 
prices is also stated. 


Line 70 sets up a loop to ‘read’ the DATA 
statements at Lines 240 to 380. These 
contain the names and prices of the goods 
on sale. These can be changed, as can the 
number of items. The number of items on 
your list should agree with the number 
mentioned in your DIM statement. 
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Lines 90 to 160 pick a selection of goods 
at random and list these and their prices. 
To increase the number of items bought, 
change the number at Line 100, 


Lines 179 to 200 work out the total and 
the correct change. Line 170 ensures that 
the number of pounds is always greater 
than the total bill. Line 190 asks you to 
give what you think is the correct Sum. 
This is then compared with the correct 
answer at Line 220. 


CORNER SHOP 


This customer has bought the following:- 


coffee 36 
notebook 22 
The customer has given you fi 


ag mgny Pence change should you give 


7 





Type in:- 
10 REM * Change Test * 
=O MODE 4 
20 FRINT’ "CORNER SHOF" 
40 PRINT  " u 


20 DIM item# (15), cost (15) 

60 FOR N=1 TO 15 

7] READ item#(N) ,cost (N) 

80 NEXT WN 

90 PRINT’ "This customer has bought the 
following :-" 

100 number=RND (4) +1 

L100 total=0 

120 FOR N=i TO number 


45 


130 rand=RND C13} 

1490 FRINT’ TAB(S)s item#(rand);TAR(1S) : 
cost (rand) 

150 total=totalt+cost (rand) 

160 NEXT N 

170 cash=INT (total /100) +1 

180 FRINT’ "The customer has given you 
£"scash 

190 PRINT’ "How many pence change should 
you give them 7" 

2900 correct=(cash*#100)-total 

210 FRINT ss INFUT change 

e209 IF change=correct THEN FROCright 
ELSE FROCwrong 

220 DEF FROCriqght 

240 FRINT’ "Correct, well done." 

240 GOTO 310 

250 ENDFROC 

2/7] DEF FROCwrong 

280 FRINT"No, you have made a mistake. 
The bill came to "statal 
270 FRINT "Have another try": GOTO 210 
200 ENDFROC 
210 INPUT’ "Another go, Y or N", ans? 
329 ITF anst="Y¥" THEN 20 ELSE FRINT 
Thankyou, bye bye." 
ao END 
240 DATA papers,18,Ssweets,35,milk,21 
aa DATA comic,23,postcard,15,bread,28 
260 DATA pen,25,pencil ,15,notebook ,22 
2709 DATA battery,24,magazine,45,ink, 32 
=BO DATA butter ,25,tea,47,coffee,5é& 


PROGRAM 20: CORNER SHOP RAFFLE 


Now add these lines to Frogram 19:- 


100 number= RND(10)+1 

242 raffle=INT (total /S50) 

244 FRINT "Customers get a Christmas 
Hamper Raffle Ticket for every SO pence 
they spend. How many tickets should you 
Give .?" 

246 INFUT tickets 

248 IF tickets=raffle THEN FRINT 
"Correct" ELSE FRINT "Wrong, "sraffle 
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PROGRAM 21: ADDITION SERIES 


Frogram 21 asks you to look at a row of 
numbers and to say what you think the 
following three numbers in that series 
should be. 


The main program is divided into two 
procedures. The first procedure, which 
begins at Line 30, introduces the program. 


The main part of the program, the quiz, 
begins at Line 150. 


Line 160 decides the range of the numbers 
used. This can be made smaller or larger 

to suit. Line 179 sets up a loop to print 
out the first four numbers of the series. 


Lines 210 and 230 ask you to INPUT your 
answers. When the program is running you 
need to press the RETURN key after each 
answer has been entered. 
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Line 240 checks to see if all three 
answers are correct. If so the program 
moves to Line 260, to the procedure 
‘correct’. If the answers are not correct 
then the program moves to the procedure 
‘wrong’ at Line 300. This procedure allows 
you to have another go at the question and 
offers some help. 


Finally Lines 250 to 380 dffer the chance 
to play the game again. 


Type in:- 


10 MODE 7 

2O FROCintroduction 

20 PROCguUiz 

40 END 

yO DEF FROCintroduction 

60 FRINT’ “SERIES BASED ON ADDITION" 

79 PRINT’ "This program will give you 4 
numbers. " 

BO FRINT’ "You have to work out the next 
o,like so," 

90 FRINT ‘’TAB(7)s"2 3S 8 11 7 FF FB" 

100 FRINT’ "The answer would be 14,17 and 20" 

110 FRINT' "We have added = on to each number 
to get the next number in the series" 

120 INFUT ‘"Are you ready to have a go,Y or N 
",ans? 

120 IF ans#="Y"THEN ENDFROC ELSE 
PRINT" BYE" :END 

140 ENDFROC 

150 DEF FROCquiz 

160 CLS:number=RND (12) :PRINT :FPRINT 

170 FOR n=1 TO 4 

180 FRINTsnumber*#n3;"  ": 

190 NEXT nn 

200 PRINT " 3 2? 3" 

210 PRINT’ "Type in each number, one at a 
time." 

22 numl=number #4+number:num2e=numil +number : 
nums=num2+number 

250 INFUT ansl,ans2,ans3 
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240 


IF ansit=numl AND ans2=num2 AND ansS=nums 


THEN FROCcorrect ELSE FROCwrong 


2u0 ENDFROC 

260 DEF FROCcorrect 

270 PRINT "Correct ,well done." 

=80 FROCagain 

290 ENDFROC 

200 DEF FROCwrong 

S10 FRINT’ "No your answer is not right, you 
need to add "snumbers:" to each number to find 
the next number in the series.", 

320 PRINT"Try again.":FOR Z=1 TO 4000:NEXT Z 

230 GOTO 230 

340 ENDFROC 

2270 DEF FROCagain 

360 INPUT’ “Another go,Y or N,"ans# 

370 IF ans#="Y" THEN FROCquiz ELSE PRINT‘’" 
BYE": END 

3280 ENDPROC 
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PROGRAM 22: A MINUS SERIES 


Frogram 22 consists of a series of lines 
which can be inserted into Frogram 21 to 
test your subtraction skills. 

Program 21 should be saved on tape first. 
Then load it again, and type in these new 
lines (they will automatically override 
the corresponding lines of Frogram 21). 
Save this program too, if you want to keep 
a copy of both. There are instructions on 
loading and saving at the back of the 
book. 


Type insi- 


60 PRINT’ "SERIES BASED ON 
SUBTRACT ION" 

90 FRINT ‘“TAB(7)3"24 21 18 15 % 

100 PRINT’ "The answer would be 12,9 
and 6." 

110 FRINT’ "We have taken = from each 
number to get the next number in the 
series!" 
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160 CLS: number=RND(8) S:FRINT :F RINT 

170 FOR n=8 TO 4 STEF-1 

220 numl=number #4-number snum2= 
numi-number snums=numS-number 

310 FRINT’"No your answer is not right, 
you need to take "snumber;" from each 
number to find the next number in the 
series, " 


PROGRAM 23: BIG NUMBERS 


Frogram 23 demonstrates how quickly your 
computer can run out of memory space. 

It starts by taking X as being equal to 2. 
It then increases this by raising it to 
the power of 2, or squaring it. The 
resulting number then becomes the new 
value of X, and the program moves back to 
Line 20. 


When the program is run you will soon see 
the error message ‘Too big at Line 20’. 
Computers which can handle big numbers are 
known as NUMBER CRUNCHERS! 





Type in:- 


10 LET X=2 

20 LET Z=XxX™ 
30 PRINT Z 

435 X=Z 

30 GOTO 20 


tH 


10 LET X=2 
20 LET 2=X*2 
30 PRINT 2 
45 X=2 

: 5Oo GOTO 20 


>RUN 
4 


16 

256 

65336 

se eT 
1 .8446744TE19 


Too big at line 20 


freee 





PROGRAM 24: TABLES TESTER 


Frogram 24 tests your multiplication table 
skills. It asks you to select a number. [t 
prints out the table for this number, then 
tests your knowledge of that table. If you 
get some of the answers wrong then it 
allows you to have another try. 


Lines 70 to 100 use a loop to print out 
the table. Line 90 slows the display down 
so that it runs more slowly. 


When you have studied the table for long 
enough, press key Y and the test begins. 


of the table and ask you to type in your 
answer. If it 1s correct, the program 
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moves to the procedure ‘right’and your 
score is increased by one. If incorrect, 
the program moves to the procedure 
‘wrong’. This offers a bit of helpful 
advice and gives you another chance. 


If you get all the answers right the 
computer plays you a tune, produced at 
Lines 250 to 270. 


Finally the procedure ‘aqain’ asks you if 
you want another turn. 


You can choose any number you like, even 
decimals, within the usual limits. 


Type imi 


10 REM *#TABLES TESTER * 

209 MODE 7 

50 FRINT’ "THIS FROGRAM TESTS YOUR 
TABLES SEILLS" 

40 INPUT ‘'"WHICH NUMBER MULTIFLICATION 
TABLE WOULD YOU LIKE TO BE TESTED ON 


"number 
YO FRINT’ "HERE GOES :-" 
60 FRINT 


70 FOR N=1 TO 10 

80 PRINT numbers "*"sNs"="isnumber *N 

90 FOR X=1 TO 1000: NEXT X 

100 NEXT N 

110 FRINT’ "Study these carefully before 
going on." 

120 FRINT’"ARE YOU READY TO GO ON, IF 
SO FRESS Y" 

130 INFUT ans? 

140 IF ans#="Y" THEN 150 


130 CLS 
160 FRINT’ "Type in your answer as each 
question comes up." 


170 score=O:wrong=0 

180 FOR n=1 TO 10 

190 LET correct=number *n 
200 FRINT numbers "#" sng "="; 
210 INFUT you 
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220 IF you=correct THEN FROCright ELSE 
FROCwrong 

2oQ NEXT n 

240 IF score=10 AND wrong=0 THEN FRINT 
"Well done you got them all right.":ELSE 
FROCagain 

290 FOR N=1 TO 255 STEFB 

260 SOUND 1,-15,N,1 

270 NEXT N 

280 PROCagain 

290 END 

200 DEF PROCwrong 

319 wrong=wrongtl 

320 PRINT: PRINT"No, wrong answer, add 
"snumbers " to "snumber* (n-1) 

3350 FRINT =:GOTO 200 

3240 ENDPROC 

S90 DEF PROCright 

360 FRINT "Correct": score=scoretl 

3709 ENDPROC 

3280 DEF FROCagain 

290 PRINT’ "Do you want another go,Y or 
N ‘a 

400 INPUT go# 

410 IF go#="Y" THEN RUN ELSE FRINT "GAME 
OVER. "s END 

420 ENDFPROC 


THIS PROGRAM TESTS YOUR TABLES SKILLS 
WHICH NUMBER MULTIPLICATION TABLE WOULD 
YOU LIKE TO BE TESTED ON 7? 7 


HERE GOES :- 


?*1=7 
7?*2=14 
?*3=21 
(*4=28 
7&5=35 
?*6=42 
7*7=49 
7*8=56 
?*9=63 
?k10=70 


Study these carefully before going on. 


ARE YOU READY TO GO ON, IF SO PRESS Y 





Type in your answer as each question 
comes up. 

(K1=77 

?X2=714 


?XS=723 


Correct 


Correct 


No, wrong answer, add 7 to 14 
(XI=721 
CK4=7 


Correct 





PROGRAM 25: LEO THE LION 


This last program is a guessing game which uses 
X and Y co-ordinates. AS by 3S grid is drawn oan 
the screens you have to say which square you 
think Leo the lion is hiding in. You are 
allowed ten chances but you will need to 
remember which squares you've tried. This 
program tests your memory too ! 


The program uses a lat of procedures. These are 
placed in the order of their use in the proaqram 
at Lines 40 to 130, 


FROClion (Lines 150 to 180) defines the 
graphics shapes which make up Leo. 


FROCgrid (Lines 190 to 330) draws the grid on 
the screen and numbers the x and y anes, 


FROChHide (Line 350) decides where Leo is going 
to hide. 
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FROCguess (Lines 360 to 390) asks you to guess 
where Leo is hiding. This procedure uses a 
‘text window’ at Line 380. This restricts part 
of the screen to text only. This enables the 
question section of the game to change without 
re-drawing the grid. If an incorrect guess is 
made then the program moves to FROCwrong. If 
the correct answer is given the program moves 
to FROCright. 


FROCwrong (Lines 450 to 300) tell you that your 
guess was not correct and directs the program 
back to FROCguess. The instruction VDU 12 
Clears the ‘text window’ so that the next 
question can be asked. 


FROCright (Lines 319 to S80) tell you that 
you've found Leo ! You are greeted with a sound 
effect to celebrate your success. 


FROCquizend (Lines 660 to 68©) tell you that 
you have not been successful and then direct 
the program to FROCshow. 


FROCshow (Lines 390 to 630) show you where Leo 
was hiding and print the picture of him defined 
by FROCLion. 


With a little bit of imagination and thought 
you can make your own version of this program — 
perhaps even longer and better than this one. 
Have a go! The best way to learn programming is 
by trying out our own ideas. For example you 
could add a score, or more sound effects, or 
make the grid larger or smaller. This program 
has really only just begun ! 


Type in:- 


10 REM * LIONSEARCH * 
20 MODE 4 

20 turn=] 

40 FROCgrid 

2O FROCLion 

60 FROChide 

70 FROCguess 

BO FROCright 

90 FROCshow 

100 YDU 26:END 
110 FROCwrang 
120 PROCquizend 
120 FROCshow 
140 VDU 26:END 
150 DEF FROCLlion 


160 VDU 23,240,15,251,65,255,63,7,2%,47 


Iisting continues on next page 


o7 


170 
180 
190 
LOO 
210 
ant) 


aQ 


2 4Q 
ae] @) 
260) 
Ae) 
280 
PU) 
at) 
oO 


oan) 


VDU 23,241,135,193, 253, 255,2592,156,12,28 
ENDFROC 

DEF FPROCgrid 

FOR y=S0 TO 650 STEF 120 

FOR x=300 TO 970 STEP 120 

MOVE x,y: DRAW 650,y 

MOVE x,y: DRAW «x,450 

NEXT x 

NEXT y 

ref=1 

FOR x=325 TO 805 STEF 120 

MOVE x,700:VDU S:PRINTsref:ref=ref+1 
NEXT x 

ref=1 

FOR y=1ioo TO 380 STEF 120 

MOVE 225, y:VDU S:FRINTsref:ref=ref+i 


230 NEXT y 

240 ENDFROC 

2o0 DEF FROChides: X=RND (CS): Y=RND(S) : ENDFROC 

“60 DEF FROCguess 

O70 IF turn?s10 THEN 120 

“B80 VDU 28,90,8,29,0:VDU 30: VDU4 

290 PRINT TAB(2,1)3a"TURN NUMBER: "sturns “ 
"Ss CHRE (240) s CHR# (241) 

400 FRINT TAB(2],3)8"Can you find Leo on this 
grid 7" 

410 INFUT TAB(2,4)3"X Coordinate (Not more 
than S)",xcord 

420 INFUT TAR(2,5)8"Y Coordinate (Not more 
than 3) ",ycord 

420 turn=turn+i: ITF xcord=X AND ycord=Y THEN 
BO ELSE 110 

440 ENDFROC 

430 DEF FROCwrong 

460 IF turn?10 THEN 120 

470 FRINT TAB(2,7)3"Sorry, Leo isn’t at 
"sxcords:","sycord:".Try again." 

480 FOR N=1 TO 6000:NEXT 

490 VDU 12: FROCguess 

200 ENDFROC 

210 DEF FROCright 

220 VDU i2: PRINT TABR(8,6)3"Well done !" 

v20 FOR a=1 TO 5 

340 FOR N=1 TO 255 STEF 4 

220 SOUND 1,-15,N,.3 

260 NEXT N 
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w/O) 
2BO 
IPO 
600 
6220 


NEXT a 

ENDFROC 

DEF FROCshow 

re=(X#1230) 4210sry=(Y#120) 410 
MOVE rx,rysVDU S:FRINT 


CHR# (240) s CHR# (241) 


6.20 


VDU 4: PRINT TAB(B,8)3; "Leo was at 


Xo"sxXe" and Ys"syv¥ 


640 
650 
560 
670 


680 


FRINT 

ENDFROC 

DEF FROCquizend 

VDU 12:PRINT TAB(8,4);3; "Sorry, you lose 


ENDFROC 








The programs you write can be ‘saved’ 1.e. 
recorded, on cassette tape. These taped 
programs can be used over and over again. 


Connect your computer to the cassette tape 
recorder, put a blank tape in and make sure 
that it is wound past the start of the tape. 


Start by typing in a short program, just to 
make sure that you understand how to ‘save’ a 
program. Type in the program, press RETURN and 
then type in :- 


SAVE " 


You now have to give your program a name. Try 
to pick one that describes the program. For 
example Frogram 25 in this book could be called 
"LEO". The quotation marks must be used. 


On your screen you should now see this:- 


SAVE "LEQ" 
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Fress the RETURN key and you will see this 
message: — 


RECORD then RETURN 


Now press the RECORD and FLAY Buttons on your 

cassette recorder, then press the RETURN key. 

You will now see your program’s name appear on 
the screen, with a set of numbers. 


When your computer has finished recording the 
program, it bleeps. You can now stop the tape. 
If your cassette recorder has a motor control, 
it will stop automatically. 


Now that you have saved your program, you 
cam load it back into your computer. First 
type in the command NEW, then press 
RETURN. This makes sure that your 
computer's memory 16 clear. 


Rewind your tape back to the beginning, 
and type in the message: -— 


LOAD "LEQ" 


Press the RETURN key. 


You will now see this message: — 
Searching 


Fress the FLAY button on your cassette 
recorder and, after a few seconds, you 
will see the name of the program. This 
will be followed by some numbers. When the 
program has loaded, your computer bleeps. 


Type in the word LIST and you should see 
your program listed. 


If all goes well, you should have no 
problems with loading and saving. Hut 
problems do occur for all sorts of 
reasons. Your cassette recorder may not be 
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Suitable for use with the Electron or HEC 
Microcomputer, you may not have the volume 
and tone controls set correctly, or you 

may not have the leads connected properly. 


The USER GUIDE can tell you about loading 
and saving in more detail. If in doubt, 
ask your supplier or someone else who has 
a computer like yours. They will probably 
be able to help. 


Above all, don’t panic. Most micro users 
have problems from time to time! 


SUMMARY 
Symbols used 


addition 

subtraction 

division 
multiplication 

raise to the power of 
less than 

* greater than 


> *¥N | + 


Words and variables 


RRND: Selects a number at random from a given 
range. When followed by a number in brackets, 
the range is between 0 and that number. 


MOD: Gives the remainder following a division 
Sum. 


DIV: Gives the whole number part produced by a 
division sum. 


INTs: Rounds down fractional numbers to the 
nearest whole number. 
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Variable names for numbers may be single 
letters or longer names: they may not begin 
with a number, nor may they contain any spaces 
or punctuation marks. Variable names for words 
("strings") must be followed by a # sign. 


Modes 


The BEC Micro has eight display modes; the 
seven display modes on the Electron are the 
same as the first seven of these (MODES 0-64). 


MODES 3,6,and 7 can be used for text only. A111 
the others can be used for graphics too. 


MODES 2 and S offer the largest characters and 
the widest range of colours, but may not always 
be suitable for displays with lots of text. For 
these displays other modes are preferable. MODE 
©O offers the highest resolution graphics, and 
80 characters to a line. 


Decimals & fractions 


Decimal fractions containing more than 10 
figures cannot be stored and will be rounded up 
where necessary. 


Co-ordinates & tabs 


To position text on the screen, you use the 
word TAB, followed by one or two numbers in 
brackets. One number fixes the start point of 
any text on a line. Where two numbers are used, 
the second number determines the line on the 
screen at which the text will be placed. 


When designing graphics displays, the graphics 
command is followed by two co-ordinates. The 
first or X co-ordinate says where a point goes 
on the horizontal axis, the second or Y 
co-ordinate says where it goes on the vertical 
Axis. 
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INDEX 


Abbreviations 10 
Addition 16, 17 


Addition quiz 22-24, 30, 31 


Addition series 47—49 
AUTO 22 


BASIC 5, 6, 10, 14 
BREAK 12 
Bugs 9 


Capital letters 10, 11 
CLS 12 
Coordinates 63 
COPY 13 


Decimals 63 
DELETE 7, 13 

DIM 44 

Direct Commands 19 
DIV 18, 19, 62 
Division 17, 18 


EDIT 13 
ESCAPE 22 


PROGRAMS 


FOR ...NEXT loo 23 REM statement 17 
Fractions 63 Renumbering 34 
REPEAT...UNTIL 
INPUT 10, 15 loop 21, 22 
INT 62 RETURN 7 
RND 62 
Lights 11 RUN 8 
Line numbers 7, 22 
Listing 8, 10, 12, 44 Saving 60 
Loading 61, 62 Spacing 9 
Subtraction 50 
MOD 18, 19, 62 Symbols 62 
Modes 63 Syntax error 9 
Multiplication tables 52-54 
TAB 63 
NEW 10 
Number crunchers 5 1 Variable names 63 
OLD 12 
P142 
PRINT 10 
Programming 6-13 


Punctuation 9 


Programs are listed under their REM statements. 


Addition 16 
Change Test 46 
Circle Area 43 
Conversion Prog 36 
Different Routine 32 
Division Using / 18 


Double Height Display 30, 31 


Lionsearch 55-59 
Loop & Count 20 
Miles to KM 38 
MOD and DIV 19 
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Have fun with your computer! 


These programs - they start simple and become 
progressively more complex - will give you lots 
of fun and teach you how to experiment with 
and enjoy your micro. You can adapt the 
programs to suit your needs and by the end of 
the book you will be able to write your own 
programs. 


Make friends with your micro! 


TITLES INCLUDE: 


SIMPLE SHAPES AND PICTURES 
SIMPLE MUSIC AND SOUND EFFECTS 
SIMPLE WORDS AND WORD GAMES 

SIMPLE MATHS, TABLES AND NUMBERS 
SIMPLE MOVEMENT AND ANIMATION 
SIMPLE FACTS AND FIGURES 
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